home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Utilities / Web_Wizard / webwizard.prg < prev    next >
Encoding:
Text File  |  1997-11-20  |  2.8 KB  |  116 lines
  1. /* WebWizard.Prg - Web Wizards for Visual dBASE 7
  2.  
  3.     Purpose            To generate interactive Web Applications using CGI-BIN using
  4.                   Visual dBASE 7
  5.  
  6.    Limitations    Drill-down (second report) is not currently streamed, though
  7.                   it can be selected.
  8.                   There are no internationalization strings included
  9.                   CGI is done with a Bat file. This will be replaced with a DLL
  10.  
  11.    Files:            WebWizard.prg     Main design form
  12.                   WebWizard.cc   Supporting class for main form
  13.                   WizHTML.cc     UI container for HTML formatting
  14.                   Wizout.cc      Streaming classes for CGI, EXE and HTML
  15.                   Wizrscr.cc     Contains internationalization strings
  16.  
  17.                   This application includes many bitmaps.
  18.                   The following are absolutely required:
  19.                   Reports.bmp     Webwiz.gif
  20.                   Query.bmp      Arrow.bmp
  21.                   DataEntr.bmp
  22.  
  23.   Author:            A. A. Katz (Ksoft, Inc.)
  24.  
  25.   Version:            1.0  11/18/1997
  26.  
  27.   (c) 1997 Borland International, all rights reserved
  28.  
  29. */
  30.  
  31. cLoadpath = substr(program(1),1,rat('\',Program(1)))
  32. cd (cLoadPath)
  33.  
  34. //////Set environment
  35.  
  36. SET TALK OFF
  37. SET EXACT OFF
  38. CLOSE ALL
  39. SET DELETED ON
  40. SET CUAENTER OFF
  41.  
  42. ////// Open splash form while loading
  43.  
  44.  
  45. _app.splash= new SplashForm()
  46. _app.splash.open()
  47.  
  48.  
  49.  
  50.   ////// load help
  51.   if file(cLoadPath+'Webwiz.hlp')
  52.      set help to (cLoadPath+'Webwiz.hlp')
  53.   else
  54.      set help to
  55.   endif
  56.  
  57.   ////// Pre-load program code
  58.  
  59.   set proc to (program(1)) addi
  60.   set proc to (cLoadPath+'Webwizard.wfm') addi
  61.   set proc to (cLoadPath+'Webwizard.cc') addi
  62.   set proc to (cLoadPath+'Wizout.cc') addi
  63.   set proc to (cLoadPath+'Wizhtml.cc') addi
  64.  
  65.  //// Instantiate main form
  66.  f  = new WebWizardForm()
  67.  f.mdi = false
  68.  f.cLoadPath = cLoadPath
  69.  
  70.  ////// Close splash screen
  71.  _app.splash.close()
  72.  _app.splash.release()
  73.  _app.splash = Null
  74.  
  75.  ////// Open main form
  76.  f.Open()
  77.  
  78.  
  79.  Class SplashForm of Form
  80.    with (this)
  81.       scaleFontBold = false
  82.       height = 5.8182
  83.       left = 31
  84.       top = 7.7727
  85.       width = 46
  86.       text = ""
  87.       autoCenter = true
  88.    endwith
  89.  
  90.    this.IMAGE1 = new PUSHBUTTON(this)
  91.    with (this.IMAGE1)
  92.       enabled = false
  93.       height = 3.1818
  94.       left = 2.713
  95.       top = 1.4091
  96.       width = 8.5714
  97.       metric = 0    // Chars
  98.       text = ''
  99.       UpBitmap = "FILENAME DataEntr.bmp"
  100.    endwith
  101.  
  102.  
  103.    this.TEXT1 = new TEXT(this)
  104.    with (this.TEXT1)
  105.       height = 1.4545
  106.       left = 14.7143
  107.       top = 1.9545
  108.       width = 30.7143
  109.       metric = 0    // Chars
  110.       colorNormal = "BtnText/BtnFace"
  111.       text = '<p>Loading...</p><p><font color="white">The Visual dBASE 7 Web Wizards</font></p>'
  112.    endwith
  113.  
  114. endclass 
  115.  
  116.